From 3fa793337d7fcb0c7a9275d4bbe90a1e3867004c Mon Sep 17 00:00:00 2001 From: Paul Eggert Date: Fri, 26 Jul 2013 09:39:55 +0100 Subject: [PATCH] Fix minor problems found by static checking. * eval.c (get_backtrace_frame, backtrace_eval_unrewind): Now static. (backtrace_eval_unrewind): ';' -> '{}' to pacify GCC. --- src/ChangeLog | 6 ++++++ src/eval.c | 13 +++++++------ 2 files changed, 13 insertions(+), 6 deletions(-) diff --git a/src/ChangeLog b/src/ChangeLog index c8aebbff2c2..83017eeec80 100644 --- a/src/ChangeLog +++ b/src/ChangeLog @@ -1,3 +1,9 @@ +2013-07-26 Paul Eggert + + Fix minor problems found by static checking. + * eval.c (get_backtrace_frame, backtrace_eval_unrewind): Now static. + (backtrace_eval_unrewind): ';' -> '{}' to pacify GCC. + 2013-07-26 Stefan Monnier * eval.c (set_specpdl_old_value): New function. diff --git a/src/eval.c b/src/eval.c index e55a3b259e0..bb5d5efc9ba 100644 --- a/src/eval.c +++ b/src/eval.c @@ -3424,7 +3424,7 @@ Output stream used is value of `standard-output'. */) return Qnil; } -union specbinding * +static union specbinding * get_backtrace_frame (Lisp_Object nframes, Lisp_Object base) { union specbinding *pdl = backtrace_top (); @@ -3483,7 +3483,7 @@ nearest activation frame. */) pointer-reversal trick. As it turns out, the rewind does the same as the unwind, except it starts from the other end of the spepdl stack, so we use the same function for both unwind and rewind. */ -void +static void backtrace_eval_unrewind (int distance) { union specbinding *tmp = specpdl_ptr; @@ -3524,10 +3524,11 @@ backtrace_eval_unrewind (int distance) break; } else - /* FALLTHROUGH! - NOTE: we only ever come here if make_local_foo was used for - the first time on this var within this let. */ - ; + { + /* FALLTHROUGH! + NOTE: we only ever come here if make_local_foo was used for + the first time on this var within this let. */ + } case SPECPDL_LET_DEFAULT: { Lisp_Object sym = specpdl_symbol (tmp); -- 2.30.2